home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / langtrans < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.6 KB  |  84 lines
  1. /*
  2.  *   IRC Script Program. For use with ircii-EPIC4 clients.
  3.  *   Copyright (C) 1999 whitefang (thall@bc1.com)
  4.  *
  5.  * ---------------------------------------------------------------------------
  6.  * All code by whitefang, unless specified.
  7.  * Thanks SrfRoG for help in optimizing.
  8.  * ---------------------------------------------------------------------------
  9.  */
  10.  
  11. PACKAGE langtrans
  12.  
  13. ON ^DCC_RAW "% babelfish.altavista.com *" #
  14. ON ^DCC_RAW "% babelfish.altavista.com D <font %arial, helvetica?>*<%>" #
  15. ON ^DCC_RAW "% babelfish.altavista.com D <font %arial, helvetica?>*" {
  16.     @ temp.trans_text = after(> $5-)
  17. }
  18. ON ^DCC_RAW "% babelfish.altavista.com C" {
  19.     IF (temp.trans_text) {
  20.         XECHO -b Translating text from $temp.trans_desc\...
  21.         XECHO -b $word(0 $temp.trans_desc)\: $temp.trans_orig
  22.         XECHO -b $word(2 $temp.trans_desc)\: $temp.trans_text
  23.         ^ASSIGN -temp.trans_text
  24.     } {
  25.         xecho -b Translation failed.
  26.     }
  27.     ^ASSIGN -temp.trans_orig
  28.     ^ASSIGN -temp.trans_desc
  29. }
  30.  
  31. ^ASSIGN trans.0 en_fr English to French
  32. ^ASSIGN trans.1 en_de English to German
  33. ^ASSIGN trans.2 en_pt English to Portuguese
  34. ^ASSIGN trans.3 en_es English to Spanish
  35. ^ASSIGN trans.4 en_it English to Italian
  36. ^ASSIGN trans.5 fr_en French to English
  37. ^ASSIGN trans.6 de_en German to English
  38. ^ASSIGN trans.7 pt_en Portuguese to English
  39. ^ASSIGN trans.8 es_en Spanish to English
  40. ^ASSIGN trans.9 it_en Italian to English
  41.  
  42. ALIAS trans {
  43.     @ :flag = findw($0 -ef -ed -ep -es -ei -fe -de -pe -se -ie --help)
  44.     IF (flag == 10) {
  45.         _transhelp
  46.         RETURN
  47.     }
  48.     IF (!strlen($1) || lang == -1) {
  49.         xecho -b Usage: /TRANS <-flag> <text>
  50.         RETURN
  51.     }
  52.     @ temp.trans_desc = restw(1 $trans[$flag])
  53.     ^ASSIGN temp.trans_orig $1-
  54.     @ :orig = fnexist(urlencode) ? urlencode($temp.trans_orig) : msar(g/'/%27/`/%60/ /%20/$temp.trans_orig)
  55.     @ :lang = word(0 $trans[$flag])
  56.     @ :sock = connect(babelfish.altavista.com 80)
  57.     //^DCC RAW $sock babelfish.altavista.com GET /cgi-bin/translate\?doit=done\&urltext=$orig\&languagepair=$lang
  58. }
  59.  
  60. ALIAS _transhelp {
  61.     ECHO Usage: TRANS <language flags> <text> 
  62.     ECHO
  63.     ECHO Attempts to translate <text> using altavista's babelfish server.
  64.     ECHO
  65.     ECHO Language flags:
  66.     ECHO
  67.     ECHO      -ef  English to French        -fe  French to English
  68.     ECHO      -ed  English to German        -de  German to English
  69.     ECHO      -es  English to Spanish       -se  Spanish to English
  70.     ECHO      -ep  English to Portuguese    -pe  Portuguese to English
  71.     ECHO
  72.     ECHO Examples:
  73.     ECHO
  74.     ECHO      /TRANS -ep I love whitefang.
  75.     ECHO      /TRANS -ie We all love whitefang.
  76.     ECHO      /TRANS -de Ich liebe meine EPIC4!
  77. }
  78.  
  79. XECHO -b Translation script for EPIC4 by whitefang [thall@bc1.com]
  80. XECHO -b For help type: /TRANS --help
  81. XECHO -b To unload: /UNLOAD langtrans
  82.  
  83. #tjbh/99
  84.